100 POKE53280,.:POKE53281,.:PRINT"[147]"
110 GOSUB310: REM MESSAGE
120 PRINT"	   [208]LEASE CHOOSE:"
130 PRINT"     [158][201][159]NSTALL [212][201][205][197][210]"
140 PRINT"     [158][210][159]ETURN TO [204][207][193][196][211][212][193][210]"
150 GETA$:IFA$=""THEN150
160 IFA$="R"ORA$="[210]"THENPRINT"[147]":GOTO250
170 IFA$<>"I"ANDA$<>"[201]"THENGOTO150
180 PRINT"     [201][206][211][212][193][204][204][201][206][199] [212][201][205][197][210]..."
190 SYS57812"MAIN",8,0:POKE780,.:POKE781,.:POKE782,160:SYS65493
200 SYS57812"CONTROL",8,0:POKE780,.:POKE781,.:POKE782,207:SYS65493
210 PRINT"[147]PROGRAMMERS HELPER LOADED."
220 PRINT"SYS 52992 TO START."
230 END
240 :
250 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
260 IF ER<>63 THEN PRINT"[147]":END
270 A$="HELLO CONNECT":Q$=CHR$(34):POKE53281,7:POKE53280,7:PRINT"[147]"
280 PRINT"[158]LOAD"Q$A$Q$",8"
290 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END
300 :
310 POKE214,16:PRINT:PRINT"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
320 FORI=1TO3:PRINT"                                      ":NEXT
330 PRINT"        [208]UBLISHED ON [204][207][193][196][211][212][193][210] #63     "
340 PRINT"      sUBSCRIPTIONS 1-800-831-2694    "
350 PRINT"                                      "
360 PRINT"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
370 AU$="[212] [201] [205] [197] [210]":POKE214,18:PRINT:PRINTSPC(20-LEN(AU$)/2)"[152]"AU$
380 AU$="[194]Y [193]NDREW [204]ITTLE  ([195]) 1989":POKE214,19:PRINT
390 PRINTSPC(20-LEN(AU$)/2)"[152]"AU$"":RETURN